If a = 1 Then
    If b = 1 Then
        Debug.Print "a = 1 y b = 1"
    ElseIf b = 2 Then
        Debug.Print "a = 1 y b = 2"
    ElseIf b = 3 Then
        Debug.Print "a = 1 y b = 3"
    Else
        Debug.Print "a = 1 y b <> 1, 2 y 3"
    End If
 End If
